home *** CD-ROM | disk | FTP | other *** search
/ Aminet 28 / Aminet 28 (1998)(GTI - Schatztruhe)[!][Dec 1998].iso / Aminet / dev / amos / AMOSList-0998.lzh / AMOSLIST / 000062_bounce-amos-li…net@onelist.com_Thu Sep 3 19:32:15 1998.msg < prev    next >
Text File  |  1998-10-01  |  4KB  |  133 lines
  1. >From bounce-amos-list--920-mcox=access.digex.net@onelist.com  Thu Sep  3 19:32:15 1998
  2. Received: from onelist.com (pop.onelist.com [209.207.135.229])
  3.     by pony-2.mail.digex.net (8.8.8/8.8.8) with SMTP id TAA07994
  4.     for <mcox@access.digex.net>; Thu, 3 Sep 1998 19:32:14 -0400 (EDT)
  5. Received: (qmail 3205 invoked by alias); 3 Sep 1998 23:30:10 -0000
  6. Received: (qmail 3120 invoked from network); 3 Sep 1998 23:30:08 -0000
  7. Received: from unknown (HELO wwwfw01.qantas.com.au) (139.163.82.1) by pop.onelist.com with SMTP; 3 Sep 1998 23:30:07 -0000
  8. Received: (from obtuse@localhost) by wwwfw01.qantas.com.au id JAA07907 (8.8.5/IDA-1.6 for <amos-list@onelist.com>); Fri, 4 Sep 1998 09:32:39 +1000 (EST)
  9. From: pbrowne@qantas.com.au
  10. Received: from iissv01.qantas.com.au(139.163.105.35) via SMTP by wwwfw01-qe0, id smtpdAAA0wxide; Fri Sep  4 09:31:40 1998
  11. Received: from ns-it062791.qantas.com.au (ns-it062791.qantas.com.au [139.163.63.51]) by iissv01.qantas.com.au with SMTP id JAA28598 (8.8.5/IDA-1.6 for <amos-list@onelist.com>); Fri, 4 Sep 1998 09:28:50 +1000 (EST)
  12. Received: by ns-it062791.qantas.com.au(Lotus SMTP MTA v1.2  (600.1 3-26-1998))  id 4A256675.00017FE2 ; Fri, 4 Sep 1998 09:27:54 +1000
  13. X-Lotus-FromDomain: QANTAS
  14. To: amos-list@onelist.com
  15. Message-ID: <4A256674.008016E4.00@ns-it062791.qantas.com.au>
  16. Date: Fri, 4 Sep 1998 09:35:20 +1000
  17. Content-Disposition: inline
  18. Mailing-List: list amos-list@onelist.com; contact http://www.onelist.com
  19. Delivered-To: mailing list amos-list@onelist.com
  20. Precedence: bulk
  21. Reply-to: amos-list@onelist.com
  22. Mime-Version: 1.0
  23. Content-type: text/plain; charset=us-ascii
  24. Subject: [amos-list] Re: dictionary layout
  25. Status: O
  26. X-Status: 
  27.  
  28. From: pbrowne@qantas.com.au
  29.  
  30. >From: Hakan Venderlof <grok@flashback.net>
  31. >On 02-Sep-98, pbrowne@qantas.com.au wrote:
  32. >>>> From: pbrowne@qantas.com.au
  33. >>>> >From: Hakan Venderlof <grok@flashback.net>
  34. >>>> >I'm planning to make a little dictionary,
  35. >>>> >the idea is to let the user input one word,
  36. >>>> >let the program search for the existence of that
  37. >>>> >word and then display a translation if it exists.
  38. >>>> I just recently wrote the beginnings of a Compact Disc Catalogue
  39. program,
  40. >>>> with the emphasis on it being able to write out a random access file
  41. in
  42. >>>> alphabetic/numeric order.  The user would input a name of the CD and
  43. some
  44. >>>> other details and that data would then be inserted into the file at
  45. the
  46. >>>> correct point.
  47. >>>> This, I think, could be easily adapted for your Dictionary idea.
  48. >>>> If this is at all interesting to you (or anyone else), I will post the
  49. code
  50. >>>> to this list.  It's not pretty, but it DOES work.
  51.  
  52. >Yes please!!!
  53.  
  54. Ok!  Here it is, for what it's worth.
  55.  
  56. As I said, it's not the prettiest code in the world, but it's fairly simple
  57. and should be adaptable.
  58.  
  59. If you have any questions, don't hesitate to ask.
  60.  
  61. Phil  8-)
  62.  
  63. ___________________________________________
  64.  
  65.  
  66. '
  67. '  **  CD Data Storage Attempt **
  68. '      (c) 1998 Phil Browne
  69. '
  70. Set Buffer 200
  71. Screen Open 0,640,256,16,Hires
  72. Global RECORDS,NAME$,LF$
  73. Dir$="RAM:"
  74. Open Random 1,"CDList.data"
  75. Field 1,25 As NAME$,1 As LF$
  76. If Exist("CDList.data")
  77.    L_O_F
  78. End If
  79. LF$=Chr$(10) : Rem * This puts a Line Feed at the end - so I can read the
  80. file!
  81. Do
  82.    Input "Enter Artist Name: ";NAME$
  83.    If Upper$(NAME$)="EXIT" Then Exit
  84.    INSERT
  85. Loop
  86. Close 1
  87. Edit
  88. '
  89. Procedure L_O_F
  90.    ' ** Determine Length of Random Access File (There has to be a better
  91. way!)
  92.    On Error Proc DUMMY
  93.    Resume Label HERE
  94.    RECORDS=0
  95.    Do
  96.       Get 1,RECORDS+1
  97.       Inc RECORDS
  98.    Loop
  99.    HERE:
  100.    On Error
  101. End Proc
  102. Procedure INSERT
  103.    TNAME$=NAME$
  104.    If RECORDS>0
  105.       For XX=RECORDS To 1 Step -1
  106.          Get 1,XX
  107.          If Upper$(TNAME$)>Upper$(NAME$)
  108.             NAME$=TNAME$
  109.             Put 1,XX+1
  110.             Exit
  111.          Else
  112.             Put 1,XX+1
  113.             If XX=1
  114.                NAME$=TNAME$
  115.                Put 1,1
  116.             End If
  117.          End If
  118.       Next XX
  119.    Else
  120.       Put 1,1
  121.    End If
  122.    Inc RECORDS
  123. End Proc
  124. Procedure DUMMY
  125.    Resume Label
  126. End Proc
  127.  
  128.  
  129.  
  130. ------------------------------------------------------------------------
  131. Help support ONElist, while generating interest in your product or
  132. service. ONElist has a variety of advertising packages. Visit
  133. http://www.onelist.com/advert.html for more information.